home *** CD-ROM | disk | FTP | other *** search
/ Visual Basic Source Code / Visual Basic Source Code.iso / vbsource / ole / constant.bas next >
BASIC Source File  |  1995-09-07  |  38KB  |  1,126 lines
  1. ''''''''''''''''''''''''''''
  2. ' Visual Basic global constant file. This file can be loaded
  3. ' into a code module.
  4. '
  5. ' Some constants are commented out because they have
  6. ' duplicates (e.g., NONE appears several places).
  7. '
  8. ' If you are updating a Visual Basic application written with
  9. ' an older version, you should replace your global constants
  10. ' with the constants in this file.
  11. '
  12. ''''''''''''''''''''''''''''
  13.  
  14. ' General
  15. Global CRLF As String * 2
  16. ' Clipboard formats
  17. Global Const CF_LINK = &HBF00
  18. Global Const CF_TEXT = 1
  19. Global Const CF_BITMAP = 2
  20. Global Const CF_METAFILE = 3
  21. Global Const CF_DIB = 8
  22. Global Const CF_PALETTE = 9
  23.  
  24. ' DragOver
  25. Global Const ENTER = 0
  26. Global Const LEAVE = 1
  27. Global Const OVER = 2
  28.  
  29. ' Drag (controls)
  30. Global Const CANCEL = 0
  31. Global Const BEGIN_DRAG = 1
  32. Global Const END_DRAG = 2
  33.  
  34. ' Show parameters
  35. Global Const MODAL = 1
  36. Global Const MODELESS = 0
  37.  
  38. ' Arrange Method
  39. ' for MDI Forms
  40. Global Const CASCADE = 0
  41. Global Const TILE_HORIZONTAL = 1
  42. Global Const TILE_VERTICAL = 2
  43. Global Const ARRANGE_ICONS = 3
  44.  
  45. 'ZOrder Method
  46. Global Const BRINGTOFRONT = 0
  47. Global Const SENDTOBACK = 1
  48.  
  49. ' Key Codes
  50. Global Const KEY_LBUTTON = &H1
  51. Global Const KEY_RBUTTON = &H2
  52. Global Const KEY_CANCEL = &H3
  53. Global Const KEY_MBUTTON = &H4    ' NOT contiguous with L & RBUTTON
  54. Global Const KEY_BACK = &H8
  55. Global Const KEY_TAB = &H9
  56. Global Const KEY_CLEAR = &HC
  57. Global Const KEY_RETURN = &HD
  58. Global Const KEY_SHIFT = &H10
  59. Global Const KEY_CONTROL = &H11
  60. Global Const KEY_MENU = &H12
  61. Global Const KEY_PAUSE = &H13
  62. Global Const KEY_CAPITAL = &H14
  63. Global Const KEY_ESCAPE = &H1B
  64. Global Const KEY_SPACE = &H20
  65. Global Const KEY_PRIOR = &H21
  66. Global Const KEY_NEXT = &H22
  67. Global Const KEY_END = &H23
  68. Global Const KEY_HOME = &H24
  69. Global Const KEY_LEFT = &H25
  70. Global Const KEY_UP = &H26
  71. Global Const KEY_RIGHT = &H27
  72. Global Const KEY_DOWN = &H28
  73. Global Const KEY_SELECT = &H29
  74. Global Const KEY_PRINT = &H2A
  75. Global Const KEY_EXECUTE = &H2B
  76. Global Const KEY_SNAPSHOT = &H2C
  77. Global Const KEY_INSERT = &H2D
  78. Global Const KEY_DELETE = &H2E
  79. Global Const KEY_HELP = &H2F
  80.  
  81. ' KEY_A thru KEY_Z are the same as their ASCII equivalents: 'A' thru 'Z'
  82. ' KEY_0 thru KEY_9 are the same as their ASCII equivalents: '0' thru '9'
  83.  
  84. Global Const KEY_NUMPAD0 = &H60
  85. Global Const KEY_NUMPAD1 = &H61
  86. Global Const KEY_NUMPAD2 = &H62
  87. Global Const KEY_NUMPAD3 = &H63
  88. Global Const KEY_NUMPAD4 = &H64
  89. Global Const KEY_NUMPAD5 = &H65
  90. Global Const KEY_NUMPAD6 = &H66
  91. Global Const KEY_NUMPAD7 = &H67
  92. Global Const KEY_NUMPAD8 = &H68
  93. Global Const KEY_NUMPAD9 = &H69
  94. Global Const KEY_MULTIPLY = &H6A
  95. Global Const KEY_ADD = &H6B
  96. Global Const KEY_SEPARATOR = &H6C
  97. Global Const KEY_SUBTRACT = &H6D
  98. Global Const KEY_DECIMAL = &H6E
  99. Global Const KEY_DIVIDE = &H6F
  100. Global Const KEY_F1 = &H70
  101. Global Const KEY_F2 = &H71
  102. Global Const KEY_F3 = &H72
  103. Global Const KEY_F4 = &H73
  104. Global Const KEY_F5 = &H74
  105. Global Const KEY_F6 = &H75
  106. Global Const KEY_F7 = &H76
  107. Global Const KEY_F8 = &H77
  108. Global Const KEY_F9 = &H78
  109. Global Const KEY_F10 = &H79
  110. Global Const KEY_F11 = &H7A
  111. Global Const KEY_F12 = &H7B
  112. Global Const KEY_F13 = &H7C
  113. Global Const KEY_F14 = &H7D
  114. Global Const KEY_F15 = &H7E
  115. Global Const KEY_F16 = &H7F
  116.  
  117. Global Const KEY_NUMLOCK = &H90
  118.  
  119. ' Variant VarType tags
  120.  
  121. Global Const V_EMPTY = 0
  122. Global Const V_NULL = 1
  123. Global Const V_INTEGER = 2
  124. Global Const V_LONG = 3
  125. Global Const V_SINGLE = 4
  126. Global Const V_DOUBLE = 5
  127. Global Const V_CURRENCY = 6
  128. Global Const V_DATE = 7
  129. Global Const V_STRING = 8
  130.  
  131.  
  132. ' Event Parameters
  133.  
  134. ' ErrNum (LinkError)
  135. Global Const WRONG_FORMAT = 1
  136. Global Const DDE_SOURCE_CLOSED = 6
  137. Global Const TOO_MANY_LINKS = 7
  138. Global Const DATA_TRANSFER_FAILED = 8
  139.  
  140. ' QueryUnload
  141. Global Const FORM_CONTROLMENU = 0
  142. Global Const FORM_CODE = 1
  143. Global Const APP_WINDOWS = 2
  144. Global Const APP_TASKMANAGER = 3
  145. Global Const FORM_MDIFORM = 4
  146.  
  147. ' Properties
  148.  
  149. ' Colors
  150. Global Const BLACK = &H0&
  151. Global Const RED = &HFF&
  152. Global Const GREEN = &HFF00&
  153. Global Const YELLOW = &HFFFF&
  154. Global Const BLUE = &HFF0000
  155. Global Const MAGENTA = &HFF00FF
  156. Global Const CYAN = &HFFFF00
  157. Global Const WHITE = &HFFFFFF
  158.  
  159. ' System Colors
  160. Global Const SCROLL_BARS = &H80000000           ' Scroll-bars gray area.
  161. Global Const DESKTOP = &H80000001               ' Desktop.
  162. Global Const ACTIVE_TITLE_BAR = &H80000002      ' Active window caption.
  163. Global Const INACTIVE_TITLE_BAR = &H80000003    ' Inactive window caption.
  164. Global Const MENU_BAR = &H80000004              ' Menu background.
  165. Global Const WINDOW_BACKGROUND = &H80000005     ' Window background.
  166. Global Const WINDOW_FRAME = &H80000006          ' Window frame.
  167. Global Const MENU_TEXT = &H80000007             ' Text in menus.
  168. Global Const WINDOW_TEXT = &H80000008           ' Text in windows.
  169. Global Const TITLE_BAR_TEXT = &H80000009        ' Text in caption, size box, scroll-bar arrow box..
  170. Global Const ACTIVE_BORDER = &H8000000A         ' Active window border.
  171. Global Const INACTIVE_BORDER = &H8000000B       ' Inactive window border.
  172. Global Const APPLICATION_WORKSPACE = &H8000000C ' Background color of multiple document interface (MDI) applications.
  173. Global Const HIGHLIGHT = &H8000000D             ' Items selected item in a control.
  174. Global Const HIGHLIGHT_TEXT = &H8000000E        ' Text of item selected in a control.
  175. Global Const BUTTON_FACE = &H8000000F           ' Face shading on command buttons.
  176. Global Const BUTTON_SHADOW = &H80000010         ' Edge shading on command buttons.
  177. Global Const GRAY_TEXT = &H80000011             ' Grayed (disabled) text.  This color is set to 0 if the current display driver does not support a solid gray color.
  178. Global Const BUTTON_TEXT = &H80000012           ' Text on push buttons.
  179.  
  180. ' Enumerated Types
  181.  
  182. ' Align (picture box)
  183. Global Const NONE = 0
  184. Global Const ALIGN_TOP = 1
  185. Global Const ALIGN_BOTTOM = 2
  186.  
  187. ' Alignment
  188. Global Const LEFT_JUSTIFY = 0  ' 0 - Left Justify
  189. Global Const RIGHT_JUSTIFY = 1 ' 1 - Right Justify
  190. Global Const CENTER = 2        ' 2 - Center
  191.  
  192. ' BorderStyle (form)
  193. 'Global Const NONE = 0          ' 0 - None
  194. Global Const FIXED_SINGLE = 1   ' 1 - Fixed Single
  195. Global Const SIZABLE = 2        ' 2 - Sizable (Forms only)
  196. Global Const FIXED_DOUBLE = 3   ' 3 - Fixed Double (Forms only)
  197.  
  198. ' BorderStyle (Shape and Line)
  199. 'Global Const TRANSPARENT = 0    '0 - Transparent
  200. 'Global Const SOLID = 1          '1 - Solid
  201. 'Global Const DASH = 2         ' 2 - Dash
  202. 'Global Const DOT = 3          ' 3 - Dot
  203. 'Global Const DASH_DOT = 4     ' 4 - Dash-Dot
  204. 'Global Const DASH_DOT_DOT = 5 ' 5 - Dash-Dot-Dot
  205. 'Global Const INSIDE_SOLID = 6 ' 6 - Inside Solid
  206.  
  207. ' MousePointer
  208. Global Const DEFAULT = 0        ' 0 - Default
  209. Global Const ARROW = 1          ' 1 - Arrow
  210. Global Const CROSSHAIR = 2      ' 2 - Cross
  211. Global Const IBEAM = 3          ' 3 - I-Beam
  212. Global Const ICON_POINTER = 4   ' 4 - Icon
  213. Global Const SIZE_POINTER = 5   ' 5 - Size
  214. Global Const SIZE_NE_SW = 6     ' 6 - Size NE SW
  215. Global Const SIZE_N_S = 7       ' 7 - Size N S
  216. Global Const SIZE_NW_SE = 8     ' 8 - Size NW SE
  217. Global Const SIZE_W_E = 9       ' 9 - Size W E
  218. Global Const UP_ARROW = 10      ' 10 - Up Arrow
  219. Global Const HOURGLASS = 11     ' 11 - Hourglass
  220. Global Const NO_DROP = 12       ' 12 - No drop
  221.  
  222. ' DragMode
  223. Global Const MANUAL = 0    ' 0 - Manual
  224. Global Const AUTOMATIC = 1 ' 1 - Automatic
  225.  
  226. ' DrawMode
  227. Global Const BLACKNESS = 1      ' 1 - Blackness
  228. Global Const NOT_MERGE_PEN = 2  ' 2 - Not Merge Pen
  229. Global Const MASK_NOT_PEN = 3   ' 3 - Mask Not Pen
  230. Global Const NOT_COPY_PEN = 4   ' 4 - Not Copy Pen
  231. Global Const MASK_PEN_NOT = 5   ' 5 - Mask Pen Not
  232. Global Const INVERT = 6         ' 6 - Invert
  233. Global Const XOR_PEN = 7        ' 7 - Xor Pen
  234. Global Const NOT_MASK_PEN = 8   ' 8 - Not Mask Pen
  235. Global Const MASK_PEN = 9       ' 9 - Mask Pen
  236. Global Const NOT_XOR_PEN = 10   ' 10 - Not Xor Pen
  237. Global Const NOP = 11           ' 11 - Nop
  238. Global Const MERGE_NOT_PEN = 12 ' 12 - Merge Not Pen
  239. Global Const COPY_PEN = 13      ' 13 - Copy Pen
  240. Global Const MERGE_PEN_NOT = 14 ' 14 - Merge Pen Not
  241. Global Const MERGE_PEN = 15     ' 15 - Merge Pen
  242. Global Const